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Executable code or iiincro wliicli overwi iies the 
messnge with null data if the the message is eligible 
for destruction. 
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FIGURE 2 




.200 



Begin Compose function 



.210 



Get Current Date 



220 



Create macro named AutoOpen with the foiowing text : 
Sub MAIN 

created = DateSeriai(I997, 6, 10) 
curdate = TodayO 
DilVerence = curdate - created 
If Difference > 0 Then 

EditReplace .Find = .Replace = "X", .Direction = 0, 

.MalchCase = 0, .WhoieWord = 0, .PatternMatch = I, 

.Sounds!. ike = 0, .FindNcxt, .RcplaceAll, .Format = 0, .Wrap = I 

l-'ileSave 

iMieClose 2 

AppClose 

IZnd If 

lind Sub 



.SavF: mnrrrn AntnDpen in nn 
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Copy Normal. dot to Message. dot 
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Dclclc AutoOpen macro 




Prompt user lo insLi l text of message 
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Save MessaiiJ.doi 
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Rename Mch^;i!;c.d()t as Messaue.doc 



Send Mess.i-.- 
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created = DateSerial(199 


7,6, 10) 






curdale = lodayO 
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DilTereiice = ciirdate - created 
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irDHTciciicc > 60 Tlieii 









EditReplace .Find = "*", .Replace = "X", .Direction 
= 0, .MatcliCase = 0, .WlioleWord = 0, 
PailernMatcii = I, .SoiindsLike = 0, .FindNext, 
.RepiaceAll, .Format = 0, .Wrap = 1 
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■>()() 



FileSave 




FileClose 2 




AppClose 
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EndlF 
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Purdue/SDD 



Would you like to implement lifelime contiols in tliis woikbook? 



,.^!...._J 



Mo 



Prompt user to make liocument nn SDD 



Purdue/SOD 




Please enlet the expiration dale for this woikbook 



Cancel 



mm 

Prc5mpc user ;o enter ilcstruetion ji-.irnmece 



'3ook2.xis' isno longer valid. 
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Notice foliowine descrucnoii 



Purdue/SDD 



Woiid you like to implement lifetime controls in this document? 





No 1 







Prompt user to make doaiment an SDD 




Purdue/SOD 



Please entei the expiration dale of tliis document. 



Cancel 



mm 



omnl user to ciUcr dcMruclion paraiuclcrs 



purdue/sm 



'test, doc' is no longer valid. 
It has been destroyed. 



Nocicc tbllowing dcsmicdon 




This docunieni wll self desliucl. 

SiMceri.'ly. 
Active Medial 




Visual Basic 




Warning whenever message is opened 



visual Basic 



This message is no longer available. 



[ OK. 



Notice after message destruction 



i File &dit view Lraeit Format loots Acttow Help 



Message | Self-Oestiuct 



To... I I stuart D. Bakjf Esa^ 



Cc... 



Sublect; \m> documeM w.a self destruct 



This messaae is no longcf available 



Contents of message lollou ing dcstruciiun 




SDE Header 



Active ! Inactive 
' i ' 1 



FirstActive 
Stream 
(Document 1) 



Next 



Second Active 

Stream 
(Document 2) 



Next 



Third Active 

Stream 
(Document 3) 



Next 
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FIG. 9A 
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SDE Header 



Active 



Inactive 



FirstActive 
Stream 
(Document 1) 



Next 



First Inactive 

Stream 
(Document 2) 



Next 



Sec :nd Active 

Stream 
(Document 2) 



Thirc Active 

Stream 
(Doc-.Tieni -} 



Next 
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Fourth Active 

Stream 
Document 5'i 



Next 
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FIG. 10b 




FIGURE llA 
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rO ADD DOCUMENT TO A COffTAINER 



Update the Hlf accessed, last modi Tied, 
and total number of documents in the 
container header 
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Open the contamer 



Overwrite the container header with the 
new container header. 
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_^Read the container header (container 
name, lifetime controls, date created, date 
last modified, date last accessed, number 
of documents) 
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Close the contamer. 
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Create a header for the new document 
(document name, lifetime controls, 
document length) 



Append the new document's header to the 
container 



Append the new document's content to the 
container 



FIGURE 12 



TO EXTRACT A DOCUMENT FROM A 
CONTAINER 
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Open the container and read the container 
header (container name, lifetime controls, 
date created, date last modified, date last 
accessed, numbei of ducuinenls) 
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por "N" = 1 to #DOCS 806 

Read the document header for document 

number "N" 
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Update the last accessed field m the ^ 
container header 
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Overwrite the contamer 
new container header. 


header with the 
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Close the contamer. 



Is dname 90 1 = name of documem to be j~ 
extracted? 
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_Yes 
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If lifetime controls are valid, then 

Extract document 
Else 

Delete Document : 
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Skip over the current document to the next 
document header 
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